﻿Module Module1
  Sub Main()

    Dim numero As Integer = My.Computer.Ports.SerialPortNames.Count
    Console.WriteLine("Numero porte presenti: " & numero)

    If numero > 0 Then
      For Each porta In My.Computer.Ports.SerialPortNames
        Console.WriteLine("Porta: " & porta)
      Next
    End If

    ' My.Computer.Ports.OpenSerialPort("...")

    Console.ReadLine()

  End Sub
End Module
